object BireBirMakineDegisimiF: TBireBirMakineDegisimiF
  Left = 222
  Top = 140
  Width = 723
  Height = 505
  Caption = 'Bire-Bir Makine De'#287'i'#351'imi'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 443
    Width = 715
    Height = 35
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      715
      35)
    object bkaydet: TBitBtn
      Left = 6
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Kaydet'
      TabOrder = 0
      OnClick = bkaydetClick
    end
    object bvazgec: TBitBtn
      Left = 86
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Vazge'#231
      TabOrder = 1
    end
    object BitBtn3: TBitBtn
      Left = 177
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Geri Al'
      TabOrder = 2
    end
    object bkapat: TBitBtn
      Left = 632
      Top = 5
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Kapat'
      TabOrder = 3
      OnClick = bkapatClick
    end
  end
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 89
    Width = 715
    Height = 354
    DisableThemes = False
    Selected.Strings = (
      'tarih'#9'10'#9'Tarih'
      'stokkodu'#9'20'#9'Stok Kodu'#9'F'
      'firmaadi'#9'30'#9'Firma Ad'#305#9'F'
      'eskiserino'#9'10'#9'Eski SeriNo'
      'yeniserino'#9'10'#9'Yeni SeriNo'#9'F'
      'nedeni'#9'20'#9'De'#287'i'#351'im Nedeni'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = BirebirDegisimQS
    KeyOptions = []
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ReadOnly = True
    TabOrder = 2
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 715
    Height = 89
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 57
      Height = 14
      Caption = 'Eski Seri No'
      Transparent = True
    end
    object Label2: TLabel
      Left = 8
      Top = 40
      Width = 59
      Height = 14
      Caption = 'Yeni Seri No'
      Transparent = True
    end
    object Label3: TLabel
      Left = 8
      Top = 64
      Width = 33
      Height = 14
      Caption = 'Nedeni'
      Transparent = True
    end
    object Label4: TLabel
      Left = 312
      Top = 40
      Width = 49
      Height = 14
      Caption = 'Stok Kodu'
      Transparent = True
    end
    object Label5: TLabel
      Left = 312
      Top = 64
      Width = 44
      Height = 14
      Caption = 'Firma Ad'#305
      Transparent = True
    end
    object Label6: TLabel
      Left = 312
      Top = 16
      Width = 23
      Height = 14
      Caption = 'Tarih'
      Transparent = True
    end
    object EskiSeriNok: TEdit
      Left = 80
      Top = 8
      Width = 121
      Height = 22
      TabOrder = 0
      OnExit = EskiSeriNokExit
    end
    object YeniSeriNok: TEdit
      Left = 80
      Top = 32
      Width = 121
      Height = 22
      TabOrder = 1
      OnExit = YeniSeriNokExit
    end
    object Nedenik: TEdit
      Left = 80
      Top = 56
      Width = 209
      Height = 22
      TabOrder = 2
    end
    object Stokkoduk: TEdit
      Left = 368
      Top = 32
      Width = 161
      Height = 22
      TabStop = False
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 3
    end
    object Firmaadik: TEdit
      Left = 368
      Top = 56
      Width = 257
      Height = 22
      TabStop = False
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 4
    end
    object tarihk: TwwDBDateTimePicker
      Left = 368
      Top = 8
      Width = 86
      Height = 22
      TabStop = False
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = clBtnFace
      Epoch = 1950
      ReadOnly = True
      ShowButton = False
      TabOrder = 5
    end
  end
  object BirebirDegisimQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select stokkodu=(dbo.getstokkodu(stokkod)),firmaadi=(dbo.getfirm' +
        'aadi(carikod)),* from BirebirDegisim')
    Left = 496
  end
  object BirebirDegisimQS: TDataSource
    DataSet = BirebirDegisimQ
    Left = 464
  end
  object BilgiQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select stokkodu=(dbo.getstokkodu(stokkod)),firmaadi=(select dbo.' +
        'getfirmaadi(carikod) from fatura where fatura.bilisno=fatharhar.' +
        'bilisnocik) from fatharhar'
      'where serinos=:serinos')
    Left = 568
  end
  object SerinoBulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select stokkod,carikod=(select carikod from fatura where fatura.' +
        'bilisno=fatharhar.bilisnocik) from fatharhar'
      'where serinos=:serinos')
    Left = 568
    Top = 40
  end
  object Genel1Q: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    Left = 624
    Top = 2
  end
  object Genel2Q: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    Left = 624
    Top = 42
  end
end
